home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / MENU_UTL / DESIGN / REPORT.INC < prev    next >
Text File  |  1987-05-14  |  1KB  |  70 lines
  1. writeln(d,'{ -------------------------------------------------------- }');
  2. writeln(d,'procedure report;');
  3. writeln(d,'var');
  4.    for i := 1 to varcount do
  5.    begin
  6.       temp := vars[i];
  7.       n := pos(#32,temp);
  8.       write(d,temp+'1');
  9.       n := pos(':',vars[i]);
  10.       temp := copy(vars[i],n,length(vars[i]));
  11.       writeln(d,temp);
  12. writeln(d,'begin');
  13. writeln(d,' ');
  14. writeln(d,' ');
  15. writeln(d,' ');
  16. writeln(d,' ');
  17. writeln(d,' ');
  18. writeln(d,' ');
  19. writeln(d,' ');
  20. writeln(d,' ');
  21. writeln(d,' ');
  22. writeln(d,' ');
  23. writeln(d,' ');
  24. writeln(d,' ');
  25. writeln(d,' ');
  26. writeln(d,' ');
  27. writeln(d,' ');
  28. writeln(d,' ');
  29. writeln(d,' ');
  30. writeln(d,' ');
  31. writeln(d,' ');
  32. writeln(d,' ');
  33. writeln(d,' ');
  34. writeln(d,' ');
  35. writeln(d,' ');
  36. writeln(d,' ');
  37. writeln(d,' ');
  38. writeln(d,' ');
  39. writeln(d,' ');
  40. writeln(d,' ');
  41. writeln(d,' ');
  42. writeln(d,' ');
  43. writeln(d,' ');
  44. writeln(d,' ');
  45. writeln(d,' ');
  46. writeln(d,' ');
  47. writeln(d,' ');
  48. writeln(d,' ');
  49. writeln(d,' ');
  50. writeln(d,' ');
  51. writeln(d,' ');
  52. writeln(d,' ');
  53. writeln(d,' ');
  54. writeln(d,' ');
  55. writeln(d,' ');
  56. writeln(d,' ');
  57. writeln(d,' ');
  58. writeln(d,' ');
  59. writeln(d,' ');
  60. writeln(d,' ');
  61. writeln(d,' ');
  62. writeln(d,' ');
  63. writeln(d,' ');
  64. writeln(d,' ');
  65. writeln(d,' ');
  66. writeln(d,' ');
  67. writeln(d,' ');
  68. writeln(d,' ');
  69. writeln(d,'end;');
  70. end;